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**F ILE**1D**SORLIB 
SSSSSSSS 000000 RRRRRRRR LL IIIII1 BBBBBBBB 
SSSSSSSS 000000 RRRRRRRR LL III BBBBBBBB 
S$ 00 00 RR RR LL II BB 8B 
SS 00 00 RR RR LL I! BB BB 
$$ 00 0O RR RR LL II BB BB 
SS 00 00 RR RR LL II 8B BB 
SSSSSS 00 00 RRRRRRRR LL II BBBBBBBB 
SSSSSS 00 00 RRRRRRRR LL Il BBBBBBBB 
S$ 00 a0 RR_ RR LL II BB 
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$$ 00 0O RR RR LL II BB BB cece 
SS 00 RR RR LL II BB BB eoee 
SSSSSSSS 00000u RR RR LLLLLLLLLL IIIII1 BBBBBBBB cece 
SSSSSSSS 000000 RR RR LLLLLLLLLL III! BBBBBBBB eee 
LL III] SSSSSSSS 
LL IHI1 SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] $$ 
LL II SS 
LL I] SSSSSS 
LL I] SSSS$5S 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS “ning UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR Nae a MADE AVAILABLE TO ANY 
fg 3 2 NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT T NOTIC 
ITMENT BY DIGITAL EQUIPMEN 
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AND SHOULD NOT BE CONSTRUED AS A COMM 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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This is the common definition file for VAX-11 SORT / MERGE. 
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ALL definitions of interest to more than one module are in this file. 


This file is used as a library source. 


ENVIRONMENT: VAX/VMS user mode 
AUTHOR: P. Gilbert, CREATION DATE: 07-Dec-1981 
MODIFIED BY: 
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T “886 Give the SORSRO_CODE__n PSECTs the EXE attr Rs... 7-Apr-1983 

T03- Information hiding of wWFB struct ~4, PDG le- 

103-028 Move definitions of pean ikea spe o83, to steukele bie to SORSCRIO 
from this module. . wh 

T03- Reduce Come SCRATCH. 4g B 5. Bog 985 

T03- Correct size of COM _WF_NA 17-May-1983 

T03- Add COM_ARCHFLAG. PDG in; n-19 

T03- § Add COLC_BLOCK stuff. PRG 2-F eb-1984 

T03- Change TON K UF SIZE to ocks for VaxELN. 


ast 
OM_RHB to COM_RHB_INP and COM_RHB_OUT. 
his is to avoid problems with merge, where an incoming 
record overve tyes the VFC area for the outgoing record. 
PDG 24-Jul-1984 


LIBRARY ‘SYSS$LIBRARY: STARLET"; 
LIBRARY ‘SYSSLIBRARY:XPORT'; 
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: XPORT 
1 
: The use of XPORT Gouses cone problems, most notably with alignment, 
and the default sign extension. The following macros are used. 
MAC 

XBYTE = SALIGN(BYTE) ZEXPAND $BITS(8) % 

XWORD = SALIGN(WORD) ZEXPAND $BITS(16) t 

XLONG = SALIGN(FULLWORD) ZEXPAND $BITS(30) 2%, 

XDESC = SALIGN(FULLWORD) LOCK(2) %, 

= SALIGN(FULLWORD) SADDRESS 1%; 


XADDR 
SSHOW(FIEL 
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POSITION AND SIZE MACROS 


MACRO 
} Macros used for field references 
-s $388 
BASE_= 0,0: :0 %. 
! Macros to construct a bit mask from a standard four-component field 
! definition (offset, position, size, extension). The result has set 
! bits in those positions that belong to the field. A list of field 
definitions can be specified. 
Example: 
! MACRO 
! A=0,2,4,0%, 
B=0,9,1,0%; 
MASK_(A,B) is equal to %8'1000111100' 
x 


MASK_CO,P.S,EJ= 
(T *"(EPS4(S))) = (1 * (PD) &, 


MASK ¥" 
TO OR XMASK_(XZREMAINING)) %, 


! Macros to align a specified value at the bit position specified by a 
! standard four-component field definition (offset, position, size 
extension). A List of values and field definitions can be specified. 


i Example: 
MACRO 

A=0,2,4,0%, 

=0,9,1,0%; 

ALIGN_(7,A,1,B) is equal to 7*2 OR 1°9 


GN_CV,0,P,S,EJ= 
(9) * (PS) °X, 


De 


ALI 


ALIGN (CJ= 
(0 OR XALIGN_(XREMAINING)) %; 
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LITERAL 


> 
- 
“ 
mi 
" 
o- 


MACRO 
ELIF= ELSE IF 2%; 


MACRO 
Macro to round a value to the next higher multiple of a number. 


The first parameter is the number which is to be rounded. 

The second parameter is the multiple up to which we round. 
If omitted, the default for the second parameter is XUPVAL 
The second parameter should be a Literal, and a power of 2. 


OUN 


= 
ULL (B) 
EN (((A) + XUPVAL=1) AND NOT (ZUPVAL-1)) 
sf (((A)+ (B) =1) AND NOT ((B) = =1)) 


MACRO 
Macro to calculate floor(iog2(constant)) 
LN2_(A)= 
(ZNBITSU(A)-1) %; 


MACRO 
Macro to signal an internal consistency check. 


BUGCHECK(A)= 
BEGIN BUILT 
CHMU(ZREF (0 


IN CHMU; 
dd° 


MACRO 
Macro to establish a condition handler. 


ESTABLISH_(X) = 
BEGIN-BUILTIN FP; 


28 oe 22 22 22 2 2 BO 2 OP 2 oer BOP 2 Bee 2 2 2a ae 


MACRO : 
Macro to produce a List of names 


PREFIX_(A)CB] = %NAME(A,B) %; 


A 
1b-5e -1984 00:17:3 VAX-11 Bliss=-32 V4.0-74 Page 6 
1er8epn 188s 28: 1bia> «| “SBS Sepbaa8scsoR Tso sacisorLie.rea;1°%* (59 

MACRO 

! Macros to determine if the value of an expression is one of a set of 

' specified small-integer values. These macros can be used only if the 

! following conditions are met: 

The value to be tested is in the range 0 through 127. 

The values to be tested for are all in the range 0 through 31. 

i Example: 


1 
' 
! 
! 
' 
1 
' 
' 
! 
! 
| IF ONEOF_(.X, BMSK_(1,3,5)) ... 
! 
' 
i] 
XK 


i The code generated is much more efficient than a series of comparisons 
' (provided that the parameters of BMSK_ are all compile-time constant). 


KBMSK_CAJ= 
ZIF (A) GTRU 31 XTHEN XWARN('ONEOF won''t work’) %FI 
(1 * (31 = (A))) &, 


BMSK_CJ= 
TO OR XBMSK_(ZREMAINING)) %, 


ONEOF _(A,B)= 
(T(B) * 


(A)) LSS 0) %; 

MACRO 

Macros to create initialized, read-only bit-vectors.. 

The first parameter to BV_ is the largest element which will be 
accessed in the bit-vector. 

For example: 

care e BV_( 51, 2,3,5.7,11,13,17,19,23,29,31,37,41,43,47,51 ); 


%( 1 is Prime )% 
%( I is Composite )% 


BV_1_CA] = CA) = 1 2%, 


BV_(M) = BITVECTORCM+1) 
PSECT(SORSRO_CODE) PRESET( BV_1_(ZREMAINING) ) %; 


MACRO 
! Macros to distinguish whether the value of an expression is amoun 
' one set of values, or another set of values, based on a single bit. 
i An error diagnostic is issued if a single bit will not suffice. 


1 

' 

{ 

' 

DIST_(X,Y,2) = 
BEGIN 
LITERAL 

M =(DIST1_(ZREMOVE(Y)) XOR DIST1_(ZREMOVE(Z))) AND NOT 
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DEBUGGING CODE 


This section defines macros to aid in writing debugging code. 


The ZVARIANT switch is used to cond te tonal ty {nc lude compiler debugging 
code. When ZVARIANT is true, > a ng code is included. en it is 
false, debugging code is omitted. The macro DEB_CODE is provided to 
bracket debugging code that is to be unconditionally executed. 


In addition, the global variable ‘"SOR$$D"' in the COMENTRY module can be 
ysed 0 obtain conditional execution of debugging code. This variable 
s initialized to zero, but aay be altered during the initial DEBUG 
dialogue, before the compiler is started: 


DBG>D SORSSD=ZX'D6O0SFFF' (for example) 
444! SOR$$D=1 (for example) 


able ‘'SOR$$D"" are allocated as follows: 
%X'00000001' Dump run information 
1 %X'00000002' Dump incremental statistics 
2 %X'00000004' Dump allocation information 
36 %x'40000000" Unassigned 
1 %X*80000000' Unassigned 


The macro DEB_SWITCH is provided to bracket conditionally executed 
debugging code. 


: Macro to bracket unconditional debuggin code, The parameter is an 
expression that will be compiled if ZVARIANT is true. 


DEB_CODE(A)= 
ZIF XVARIANT 
<THEN 


A 
RFI %, 


! Macro to bracket conditional debugging code. The first parameter is 
! a bit number in the variable SORS$ and the second parameter is an 
' expression that will be evaluated if that bit is set. The entire 
expansion is compiled only if ZVARIANT is true. 
DEB_SWITCH(A,B)= 

ZIF XVARIANT 
THEN | 
BEGIN EXTERNAL SOR$SD; 
IF .SORSSD<A,1> THEN B; | 


N 
RFI &, 


! Macro to test an assertion about compile-time constants. 


Pert er er ee ee et er ee ee ee ee a ee el 
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749: 


Set 9 


16- 
18: 


ZERROR( ‘Assertion failed’) 


ASSERT_(A)= 
%IF NOT (A) 
XTHEN 

%; 
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' 
i 
L 


ITERAL 
MAX_KEYS= $35. ! Maximum number of sort keys allowed 
X_FILES= 0, ! Maximum number of input files. 

MIN WORK _FILES= 1, ! Minimum number of work files 
DEF _WORK_FILES= . : petouit number of work files 
MAX_WORK FILES= 10, ! Maximum number of work files 
MAX_MERGE_ORDER=1 ! Maximum merge order 
MAX-SPC_LINE= 1 2, ! Maximum Length of spec file Line 
MAX_SEQ_RECLEN= 32767, ! Maximum sequential file record Length 
MAX_REL_RECLEN= 193 4, ! Maximum relative file record lengt 
MAX_IDX_RECLEN= 19 4, ! Maximum indexed file record length 
MAX_ISAMKEYLEN= 255 ! Maximum index key data item Length 
MAX_REFSIZE= 65535 ! Maximum Length of a referenceable data-item 

1 sven MAX-PSECTSIZE= 2147483647; ! Maximum Length of a PSECT 
MIN_MBC= 7 ! Minimum MBC count 

_MBC= 16, ! Maximum MBC count (for RP06) 

MIN_MBF= o. ! Minimum MBF count 
MAX _MBF = : ! Maximum MBF count 

LITERAL 
DEF _FILE ALLOC= 128*3, ! Default file allocation 

apenas DEF_TRM_ALLOC= .16; ! Default allocation for terminals 
COM_K_BPERPAGE= 512 ! Bytes per page 

Litera, COnMR=BPERBLOCK= 512; i Bytes per disk block 


! Define a Literal for the amount of work space to allocate 
! for eyes ty sses ten text, and another for the amount of work space 
to allocate if we only need to process a collating sequence. 


WRK_K_ALLOC= 128 * COM_K_BPERPAGE, 


KL Allocation for work area 
WRK_K_COLLATE= 6 * 256 


4 
! AlLloc to process collating sequence 
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: Values for sort types, passed to SORSINIT_SORT. 
These are also used to define the global Literals SORSGK_xxx. 


TYP_K_RECORD= 
TYP~K~TAG= 


Record sort 


Datatype values for use in the key definition buffer (KEY_BUFFER). ; 
| These are also used to define the global Literals SORSGK_xxx_KEY. : 
| These are used only for compatability purposes. ‘ 
KEY_K_CHAR= 1, ' Character data : 
KEY_K_BIN= ¢° ! Signed Binery data : 
KEY_K_ZONE= ° ! Zoned decima ; 
KEY_K_PACK= 4, ! Packed decimal ; 
KEY_K_USB= Pe ! Unsigned binary ; 
KEY_K_DLO= g. ' Decimal leading overpunch : 
KEY_K_DLS= ° ! Decimal leading separate : 
KEY_K_DTO= g. ! Decimal trailing overpunch ; 
KEY_K_DTS= ' Decimal trailing separate ; 
KEY-K"FLT= 16, i Floating ; 
KEY_K_FLTD= 11, ! D_floating ; 
KEY_K_FLTG= 12, ! G_floating : 
KEY_K_FLTH= 13, ! H_ floating ; 
KEY_K_MAX= 13; ! Maximum : 
LITERAL 


1, 
KL ¢- ! Tag sort 
TYP_K_INDEX= ° ! Index sort 
TYP_K_ADDRESS= 4, ! Address sort 
TYP_K_MAX= 4; ! Maximum sort type 
MACRO 
: Options flags, passed to SORSINIT_SORT and SORSINIT_MERGE. 
These are used to define the global Literals SORSV_xxx and SORSM_xxx. 
OPT_STABLE= , 9. 1, 02%, ! Stable sort 
OPT _EBCDIC= oke te OE ' EBCDIC collating sequence 
OPT-MULTI= ° ¢° 1,02 ! MULTINATIONAL collating sequence 
OPT_NOSIGNAL= - 32 1,0%, ! Don't signal errors 
ot geome ° ¢ 1. iy ! Sequence check on merge input 
. unu e = oe e e a 
PT_NODUPS= " g. 1,02, ! Delete records with duplicate keys 
OPT_FIXED= - ?. 1,0%, ! Records are fixed length (NYUsed 
: OPT-LOCATE= ° 8 1,0%, ! Use locate mode with RETURN_REC 
OPT_LOAD_Filt= 0, 9, 1, 0%; ! Use LOAD_FILL on output file 
LITERAL 


: Values to index the sort statistics 
i These are also used to define the global Literals SORSGK_STAT_xxx. 
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' 3 
SEQULST(STAT_K_, GBL, 0, 1, 3 
(IDENT,), ! Address of ASCIC string for version number ; 
(REC_INP,), ! Records Input ’ 
(REC_SOR,), ' Records Sorted ‘ 
(REC_OUT,), ' Records Output 3 
(LRL_INP,), ' LRL for Input ; 
(LRL_INT,), ! LRL of internal Length record $ 
(LRL_OUT,), ' LRL for Output 3 
(NODES, ) | ! Wodes in sort tree 3 
CINI_RUNS;,) ! [vitial dispersion runs F 
(MRG~ORDER } ! Maximum merge order 3 
(MRG-PASSES,5, | meper of merge passes : 
! (WSERTENT.), ! Working=-set extent ; 
! (MEM_USE,), ' Hea ary usage 2 
(WRK_ALQ,), ! Wort file usage : 
! (DIRTO,), ! Direct 1/0s 3 
! (BUF IO,) ! Qu*¢ered 1/0s : 
i (PAGEFLTS,), | Page faults 3 
' (CPU_TIME,), ! CPU time 3 
: (ELA_TIME,), ' Elapsed time ; 
(MBC"INP,5, i MBC for Input ; 
(MBC_OUT,), ' MBC for Output : 
(MBF _INP,), ! MBF for Input : 
(MBF _OUT ' MBF for Output FY 
(MAX“STAT,5); | Last stat value 3 
Define a single key description in the key description buffer : 
SUNIT_FIELD $ 
KBF FIELDS = : 
KBF _TYPE= CXWORD] ! Data type of key 3 
(0,0,16,0]  (#%x'0") ; 
KBF_ORDER= WorRDS oye iff descending order ; 
(2,0,16,0]  (+%x'2") : 
KBF_POSITION= CXWORDS ' Offset to key within record (1..LRL) ; 
(4,0,16,0]  (+%x'4") ; 
KBF_LENGTH= CxWoRDS ' Length of key ; 
(6,0,16,0] (+%x'6") F 
TES; : 
LITERAL : 
neces KBF_K_SIZE = SFIELD_SET_UNITS; ! Size in bytes 
KBF_BLOCK = ZEXPAND SUNIT_BLOCK(KBF_K_SIZE) FIELD(KBF_FIELDS) 2%; 
: Define the key description buffer 
MACRO 
KEY_NUMBER = - 0, 16, 0% ! Number of keys 
KEYKBF(N) = + KBF_K_SIZE * (N), 0, 0, 0 2; 
STRUCTURE 
KEV _PLOCKES P,S,E;BS=MAX_KEYS) = 
+ KBF_k_SIZE*BS) TKEY_BLOCK + 0) <P,S,E>; 
! Define the structure of a COLL_BLOCK, which is passed to SORSSPEC_FILE 


MACRO 


COLL_W -LENGTH = 
COLL-B_PAD 
COLLZA “PTAB = 


ae 


at: 


ibs 


Sep-1 
~Sep-1 


3Bc 28:05:47 — “$355Soua28: (Sony 


! Length of this block 
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COMMON INFORMATION 


Information that must be available between calls to sort/merge is 
stored in a dynamically allocated data structure. The address of this 
data structure is stored in a context parameter that is passed to the 
sort/merge Pour ines i the context parameter is missing, the global 
variable SORSSCONTEXT is assumed to contain this pointer. 


ad et 
Uw = 0; 
U_= ZASSIGN(U__,U__ +1) ! Macro to generate unique names 
XNAME ('U_*TENOMBER(U__)) %; : 
LITERAL 
COM_K_TREE= 13, ! Number of Longwords for TREE_INSERT 
COM_K_SCRATCH= 10, ! Number of longwords for SCRATCH_I0 
COM_K_CDD= 2; ! Number of longwords for CDD stuff 
SFIELD CTX_FIELDS = 
SET 
Routines 
COM_COMPARE= CXADDRI ! Address of user comparison routine 
(0,0,52,0]  (#%x'0") 
COM_EQUAL= CXADDRI ! Address of equal-key routine 
(1,0,52,0)  (+xx'4") 
COM_INPUT= CXADORS ! Address of input conversion routine 
(2,0,52,0]  (+%x'8") 
COM_OUTPUT= cxapoR’ ! Address of ouput routine 
(3,0,52,0]  (#"x'C') 
COM_LENADR= Cxadbr5 ! Address of length, address routine 
(4,0,52,0)  (#%x'10") 
COM_NEWRUN= cxapbrd ! Address of new run routine 
(5,0,52,0)  (#%x'14") 
COM_ROUTINES=  CxDESC4 by higenanic: string descriptor 
(6,0.0,0)  (+k%x'18") 


i Storage for TREE_INSERT 


COM_TREE_INSERT=C$ BLOCK(COM_K_T E)], ! Storage for TREE_INSERT 
: [8,0.0,0) 6) 


R 
(F2R'2 
Global sort information 


COM_CTXADR= CXLONG . ' Address of users context longword 
1,0,32,0) (+%x'54") 
COM_SORT_TYPE= CXBYTE BO] CenetBgegt Sort (TYP_K RECORD...) 
= oe ' 
COM_NUM_FILES CxByTE 90) caattEges of input files 
COM_WRK_FILES= CxByTE é.8.03 taut of of work files to use 
COM_STABLE= cseits, °° : staple sort requested 


84,1,0] (+ 


2 
COM_SEQ_CHECK= (sits ! Sequence check 


puAZB: 
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(22,2 
COM_SIGNAL= cseit4 5 
COM_NOCHKPNT= cseiT4, 
COM_LOAD_FILL= cseiti, 
COM_NODUPS= cs6iti, 
us cent) 


i] 
| Control flow flags 


COM_FLO_SORT= csB11 


COM_FLO_RELEASE=(SB]T, 
COM_FLO_RETURN= cseit4 cy 


$,1,0] 
mayan 


3, $,1,0) 
COM_FLO_ABORT= (C$BITS 
(23,4,1,0 


+ 
= 
—~ —— 


rge should signal errors 


“sy «= 
<= 


+ 
ow 


inting should not be done 
d-fill on indexed files 
records with duplicate keys 
ate mode with RETURN_REC 


? 
? 
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} May call Sort-Merge 
(+2x"5B") 
! May not call Pass-Files, Init-Sort or Init-Merge 


Geax’ Sc") 


' May call Release-Rec 


Geax’ Sc8) 


! May call Return-Rec or End-Sort 


Coax? $c%) 


! May call Do-Merge 
Tab) . 


(+%x' 


! may only call End-Sort 
Cc") 


(+2x" 


Flags to amend for V3 compatability hacks 


COM_HACK_2ARGS= csejTJ 


§.1,0) 
COM_HACK_STRIP= cseit) 
(23,6,1,03 


Merge-specific fields 


! Pass only 2 args to callback routines 


(42x! C') 


sii2¢, the keys 


(+2%x'5C 


Note that COM_MRG_ORDER is non-zero iff this is a merge 


COM_MERGE= ($B81T) 

. sOit ?,1,0) 
COM_MRG_ORDER= (CXBYTE), 
(23,8.8,0) 


; Spec text processing stuff 
COM_SPEC_TKS= CXWORDJ 


(23,16,16,0) 


Merge-specific fields 
COM_MRG_INPUT= CKADDRA 
COM_MRG_STREAM= CX ; 
: ta 


:32,03 
°32,0) 
Collating sequence stuff 


! Indicates a merge (not a sort) 


(+2x"5C") 


' Order of the merge 


(+%x"5D") 


f keys portion of internal node 


w itten merge input routine 


m number for stable merges 
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16-Sep-1984 00:17:3 VAX=-11 BLi 
1er8een13ks 93:45:23 = “SBsd gb AS 
T . ! 
toes ae one? (oe "Ga8) Sia sequence routine 
— ee s ° . wr e-on 

. Eo eor32,07 (antec . 

Key information 

U_= CXADDRI, ! Address of key descriptions 

[28.0,32,0]  (+8x' 70") 4 , 

COM_SPEC_FILE= CKADDR 350) pohddg gf Structures from spec file 

COM_TKS= CxByTé); ' Total key size (as specified b ) 

) £30-0/8,0) ceux fare” abies sien Bape 

! Override flags - ignore the specification text for these options 

COM_OVR_PROC= ($B]T) ! Process specified 

COM_OVR_KEY rage 1-03 neh ified 

JKEY= ! Key(s) specifie 
- *P30-,1,02  caantdony 2 
'no way COM_OVR_CHKSEQ= ($B8I1TJ, ! Check sequence specified 
'no way COM_OVR_STABLE= (S$BITJ, ' Stable specified 
COM_OVR_COLSEQ= soit 


' Collating sequence specified 
Repose 904 , 


COM_BS_DECM= cseit4 ' Base sequence was DEC_MULTINATIONAL 
0,11,1,0)  (+%x'79") 

U_= CSB] TS (45). 

' (30,12,4,0] (+%x'79") 

Counts 

COM_RUNS= CXWORDI ! Current number of runs 
C30,16,16,0] | (+%x"7A") 

COM_INP_RECNUM= CXLONGI, ‘ {0 ut record number (stable & stats) 
31,0,32,0]) (+%x'7C*) 


' 
Collating sequence information 


COM_TIE_BREAK= ($8I1T) 
; +P426.1.09 


Record format information 
COM_VAR= 


' sodicgtes tie-breaking 
(+%X"80") 


C$BITI ! Flag indicating variable length input 
5F ys 0n aantab) di oe ea 


U_= csBi1S<6)4 
2,206.0)  (+%x'80") 

COM_MINVF C= CxBYTE ° } Lengeh of VFC area in internal node 
32,8,8,0)  (+%x'8T') 

COM_MAXVF C= CxBYTE ' Length of COM_RHB buffer 
32,16,8,0)  (+%x'82") 

COM_FORMATS= CxBYTE ! Nuaber of different record formats 
32,26,8,0)  (+%x'83") 

COM_LRL= CxWORSJ, Longest input record length 
(33,0,16,0) (+2%x'84") 

COM_SRL= cxwoRd ; shor sett record length 
(33,16,16,0] | (+%x'86") 
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COM_LRL_INT= Caygro ° : ben MY of internal format record 
COM_LRL_OUT= oxy -Y padge ind .t d Length 
www dt Th ade OE 
COM_RHB_INP= [ ADDR Address of VFC area (input side) 
H T A ‘ ; 
COM_RHB_OUT= CxADDA 30.07 pahddgess of VFC area (output side) 


i] 
File information 


| 
(ao ( 
: 


COM_PASS_FILES= CHABDR] «5. on La QuEBYE, file characteristics 
COM_OUT_DDB= —CXADDR 350) enddgess of output file pp 
COMLINP_DDB= —CXADDR seven i Address of input file DpBs 
COM_INP_CURR= CKADDR seg ay of current input file DDB 
COM_INP_ARRAY= CHADDA aS input DDB pointers 
COM_FILE_ALLOC= [ ONG). 0} foeutggtptocation specified by user 
COM_SPC_DDB= CXAD a: . ! Address of spec file DDB 
(43,0,32,0] (+%x"AC") 


' 
Statistics information (used only for statistics) 


COM_STAT_NODES= CXLONG), ! Number of nodes in sort tree 
44,0,32,0] (+%x'BO") 

COM_STAT_RUNS= (CXWORDJ, ' Number of runs from dispersion 
(45 4-16.03 (+2X'B4") 

COM_STAT_PASSES=CXWORD ! Number of merge passes 
£45,16,16,0]  (+%x"B6") 


COM_STAT_MERGE= CXBYTE), ! Order of the merge 
46,0,8 0) (+2X'B8") 
U_= SBI TS (245 
46,8.24,0]  (+%x"B9") 
COM_STAT_WS= XLONG). ' Maximum WS used 
COM_STAT_VM= XLONGJ, ! Maximum VM used 
COM_OM1 _RECNUM= XL ONG 1 Number of omitted records (for stats) 


47 0.32.03 (+2X'BC") 
COM_OUT_RECNUM= CX ONG), ' Output record number (for stats) 
' 48,0,32,0] (+%x'C0") 


Storage for TREE_INSERT 


COM_TREE_LEN=  CXLONG), ! Length of storage for tree 
49,0,32,0] (+2x'°C4") 
COM_TREE_ADR= CXLONG ° ! Address of storage for tree 
0,0:32,0]  (#Ex'CBe) 
Scratch 1/0 information 
COM_SCRATCH_10= [$ LOCK(COM_K_SCRATCH)], ! Storage for SCRATCH_10 
eee aeeiesee SET sOcOc0) TeBK CC!) 9 


er 
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15-Sep-1984 ee VESSSSDUARESLSORYS2. SRCISORLIB.REQ; 1 9° 09) 
Locking information 
COM_LOCKED= CXADDRI, ! List of locked code sections 
| Specification file stuff 
COM_SPC_TXT= CXDESC), ! Dymanic string for spec file text 
[61,.0,0,0]  (+xx"Fa") wr Sieg : 


1 
Specification file stuff 


COM_RDT_S1Z= CxBYTE ; 
63, 78,0] (#%xX"FC") 


COM_KFT_SIZ= CxB Te): 
63,8,8,0]  (+%Xx'FD") 
COM_CFT_SI1Z= _ CXBYTE) 
[63,16,8,0]  (+%X'FE") 


COM_FDT_SIZ= CxByTE 
63,24,8,0]  (+%X"FF") 


COM_TDT_SIZ= —_ CXBYTE 
(64,0.8,0] (+%x'100") 


COM_PAD= CxBYTEJ. ! Pad character 
(64,8,8 93 (+%x'101") 

U_= cs81T$({653, 
(64,16,16,0] (+#%x"102") 

COM_RDT_ADR= CXADDRI, ! Record definition table 
(65,0,32,0] (+%x'104') 

COM_KF T_ADR= XADDR), ! Key/data field table 
(66,0,32,0)  (+%x"108') 

COM_CFT_ADR= CXADDRI. ' Constant field table 
(67,0,32,0)  (+%x'10C") 

COM_FDT_ADR=  CXADDRI, ! Field definition table 
(68,0,32,0)  (+%x'110") 

COM_TDT_ADR=  CXADDRI. ' Test definition table 
(69,0,32,0) (+%x'114') 

COM_CONST_AREA= CXADDR). ' Constant area (address) 
C70,0,32,0) (+%x'118') 

COM_PTAB= CXADDRI. ! Pointer to 256-byte table 
C71,0,32,0) (+#%x*'11C") 

U_= CXADDRI. 
(72 4-52.03 (+%X°120") 

COM_WRK_SIZ= CXLONG), . Lengsn of work area 
73,0,32,0] (+%x'T24") 

COM_WRK_ADR= CXADDRI, : addrgst of work area 
(74,0,32,0) (+#%x'128') 

COM_WRK_END= CKADDR “ ‘ sodrsst past end of work area 
(75,0,32,0) (+4x'12C") 


1 
Other stuff 


COM_WORST= CXLONGJ, ! Horst error we've ever seen 
6,0,32 0] (+2x'130") 
COM_WF_NAMES= ! Counted list of indices into CFT of work file names 
c HTES( +MAX_WORK FILES). 
77,0,0,0) ~ (+%2'134") 
SALIGN(FULLWORD) 
COM_CDD= C$SUB_BLOCK(COM_K_CDD)J, ' Storage for CDD stuff 


———= 
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15-Sep-1984 49:47 -$255$DUA28: [SORT 32. SRC JSORLIB.REQ;1 (9) 
at 1H) hy (80,0,0,0]  (+%x'140"') 
Ose? Additional storage for checkpoint stuff 
L bee COM_COUNTDOWN= CXLONGI, 
praet: 2,0,32,0] (+%x'148') 
pert Architectural flags (indicates which instructions are implemented) 
067 COM_ARCHFLAG=  CXLONG 
PRINT: EB 3 32,0] (#%xX°14C") 
674 TEs; 
675 LITERAL 
org CTX_K_SIZE= SFIELD_SET_SIZE; ! Size in lLongwords 
67 MACRO 
0678 CTX_BLOCK= BLOCKECTX_K_SIZE] FIELD(CTX_FIELDS) %, 
+394 CTX BLOCK_(S)= BLOCKCCTX-K-SIZE] FIELD(CTX_FIELDS,S) %; 
L bees 8 MMESSAGE('CTX_K_SIZE = ', XNUMBER(CTX_K_SIZE)) 
0683 0 UNDECLARE %QUOTE U_, U__ 


poole lola lolololo) 
AAO 


AAAAO 


ITERAL 
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RECORD FORMATS 


vayslt Bli 
~-5255$DUA2 


This section describes the various record formats that are used 


throughout Sort/Merge. 
INPUT RECORD FORMAT: 


VAR (a word) is present only for variable length records 
VFC is present only for VFC files 


DATA is always present 
INTERNAL RECORD FORMAT: 


FORM KEY VAR VFC DATA STAB 
FORM KEY RFA FILE STAB 


' Record sort 
! Tag, address, index 


STAB (a Longword) is present only for stable sorts 
RFA (RABSS_RFA bytes) is present for non-record sorts 


OUTPUT RECORD FORMAT: 
VAR VFC_ DATA 
RFA FIL 
RFA FILE OKEY STAB 


' Record, tag sort 
! Address sort 
! Index sort 


g 

t 

So 

r] 

o 

4 

nm 

Sentea 

Hhnnnnnnnun 


COM~ORD~VFC 
COM~ORD~DATA 
OM~ORD~MAX 


VAR (a word) is present only for variable length records 

VFC_ is present only for VFC 

FILE (a byte) is present only for multi-file non-record sorts 
OKEY is the unconverted keys 

STAB (a longword) is present only for stable index sorts 


Assertions can be made on the following Literals to determine the relative 
ordering of fields within a record. 


RFA field 

File number field 

Format field 

original keys (for index sorts) 
Stable longword fie 

' Key or converted key field 
Length field 

! VFC field 

' Data field 

Largest order value 
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een 138c So:49:a7 — “SSSSSrUAd8sCeoRYS2. sRCoSORLIB. REG: 1°" «143 
DEVICE DESCRIPTION BLOCK 
The DDB contains information for Peedtne/ur Nr ine a file. It does not 
contain all RMS structures, since the FAB, NAM, and other blocks may 
be discarded, thus decreasing the amount of virtual memory required. 


UNIT_FIELD 


DDB_FIELDS = 
DDB_NEXT= CXADDR) ! Pointer to next DDB 
(0,0,32,0] _(+#%x'0") 
DDB_NAME= C$SUB_BLOCK(2)), ! File name Length/address 
4,0 5. J] (4Rx"4") 
DDB_IF I= cxL one), ! Internal file identifier 
12,0,32,0]  (#%x'C") 
DDB_FOP= CXLONG), ! File options 
16,0,32,0)  (#%x"10") 
DDB_RAB_RAB= CSBYTESCRABSC_BLN) J, ! Record Access Block 
20,0,0,0) ~ (+%x'14") 
DDB_FIL= CxByTE ! Input File number (0 on up) 
88,0,8,0]  (+%x'58") 
LITERAL went 
DB_RAB= %F IELDEXPAND(DDB_RAB_RAB,O); 
UNDE CLARE 
erst 9 DDB_RAB_RAB; 
ae DDB_K_SIZE= $FIELD_SET_UNITS; ! Size in bytes 
DDB_BLOCK= XEXPAND SUNIT_BLOCK(DDB_K_SIZE) FIELD(DDB_FIELDS) 2%; 


XMESSAGE("DDB_K_SIZE = ', %NUMBER(DDB_K_SIZE)) 


UNDE CLARE 
ZQUOTE SDESCRIPTOR; 
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LINKAGES 


Common Linkages are defined here. Linkages to external routines 


' 
' 
: 
Several internal routines use JSB Linkages to improve performance. 
are defined as LNK_routine_name. 


LITERAL 


nm 
“uu 
HO 


6, 
1; 


= XNAME(X,"_PR') %, 
= XNAME(X.'"NP') 2. 
= XNAME(X.'"NU') 2, 
= 1*P 
= 


REGMA 0 OR KREGMASK_(XREMAINING) %; 
KEYWORDMACRO 
ti; Es A Ne oa SE = 


PRESERVE (NAM) = REGMASK_ (ZREMOVE (PR 
ZNOPRE SERVE (NAM) = REGMASK_ (ZREMOVE (NP 
ZNOTUSED (NAM) = REGMASK_ (ZREMOVE (NU 
LINKAGE NAM = JSB(ZREMOVE (PM)): 
RIF NOT ZNULL(GL) ZTHEN pot ery at yg ty pM a 
V 
N 


ZIF NOT ZNULL(PR) ZTHEN PRESERVE (ZREMOVE 
ZIF NOT ZNULL(NP) ZTHEN NOPRESERVE (ZREMO 
ZIF NOT ZNULL(NU) ZTHEN NOTUSED(ZREMOVE ( 


JSB_DEFN_ (¢ 

RAM = JSB_INPUT ! For COM INPUT 

PM = <REGISTER=COM REG_SRC1,REGISTER=COM_REG_SRC2>, 

PR = <COM_RE ~$RC2e. 

NP = <0,1,2,5,4,5,6,COM_REG_SRC1>, ! R6 holds the variable Length 


NU = <7.85 
GL = <Cfx=COM_REG_CTX> ); 


JSB_DEFN. ( 
RAM = JSB_NEWRUN ! For COM_NEWRUN 
NU = <4,576,7,8, 10>, 
NP = <0,1> 
PR = <2,3,9>, 
GL = <CTX=COM_REG_CTX> ); 


JSB_DEFN_( 
RAM = JSB_COMPARE, ' For COM COMPARE 
PM = <REGISTER=COM_REG_SRC1,REGISTER=COM_REG_SRC2>, 
<COn REG_SRC1-COM_REG_SRC >, 


ms 6 24, > 


26>, 
<CTX=COM_REG_CTX> ); 


! Really??? 


JSB_DEFN_( 
AM = JSB_OUTPUT ! For COM_OUTPUT 
PM = <REGISTER=COM_REG_SRC2>, 
PR = <COM_REG_SRC25, 


vuvvU vuvvUU vuvvvUU vv 
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NP <b; 28 4 5 662 ! R6 277 
: : ¢ 4 y * eae 
GL = <Cfx=COmZREG’CTK> ); needed 


JSB_DEFN_ ( 
RAM = ' For COM EQUAL 

PM 1,REGISTER=COM_REG_SRC2>, 

PR _SRC2>, 

NP 

NU 

GL 


JSB_DEFN. ( 
RAM = 


nnunun 
AAA 
MOO De 


- BD 
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JSB_DEFN, ( 
NAM = JSB_INSERT, 
PM = <STANDARD>, 

AP = <0°4)5,3,6.5.6 
= ° oe eo 

GL = <CTX=COM_REG.C 


JSB_DEFN_( 
= JSB_READINS 
PM = <REGISTER=6,REGISTER=8>, 
PR = <7,8> 
= <0/1,3,3,4,5,6,9,10>, 


! For SORSSTREE_INSERT 
! Can we use registers??? 


COM_REG_SRC1,COM_REG_SRC2>, 
tx> J; 
! For READ_INSERT 


GL = <CTx=COM’REGCTX> ); 


JSB_DEFN_( 
NAM = JSB_EXTRACT, ! For SORSSTREE_EXTRACT 
w" = : Tene? ! Can we use registers??? 
= e 
NP = <0,1,2,3,4,5,6,COM_REG_SRC1,COM_REG_SRC2>, 
GL = <CTX=COM/REG CTX> J; 
LINKAGE 
CAL_ACCESS = CALL ( STANDARD; ! For SORSSRFA_ACCESS 
REGISTER= 
REGISTER=15: 
GLOBAL (CTX=COM_REG_CTX); 
LINKAGE 
CAL_CTXREG = CALL: GLOBAL(CTX=COM_REG_CTX); 
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197380-1 382 30 oa? VE OSSSDUADRSLSORTS2. SRCISORLIB.REQ: 1 " $3 Ta 
; 19 : TUNING PARAMETERS 
; 7 i 
5 78 These values are used to tune the sort. 
3 " Ne L 
3 a TUN_K_FALLBACK = 4, Minimum pages for tree for a large sort 
; 087 TUN_K_CALC_FI = TRUE, True to calculate FI in sort tree 
; 087 TUN_K_CAL = TRUE, ! True to calculate FE in sort tree 
; 088 TUN_K_OUT_PREALL = TRUE True to preallocate output file 
: Bae! TUN_K_WRK_PREALL = FALSE, True to prgethocate work files 
3 TUN_K_ALIGN_NODE = - Loge of alignment for nodes (longword align) 
3 nt TUN_K_ALIGN TREE = 9, Loge of alignment for sort tree (page align) 
$ 884 TUN_K_MRGCOST = 0 Cost of merge 
; 0885 8 TUN_K_PURGWS = FALSE, True to purge working set before INIT_TREE 
; ety] '  TUN_K_LCK_CTX = TRUE, True to lock context area in WS 
; 0887 0 !  TUN_K_LCK_TREE = 3 Pages of tree to lock in WS 
; 0888 0 i TUNTKTLCK"CODE = —- TRUE, True to lock code in wS 
; 0889 0 TUN_K_BINMOVE = 3 Max number of bytes to move with binary moves 
; 0890 TUN_K_MAX_MERGE = 0; Maximum merge order for internal merges 
; _ 0891 MACRO 
; # 089 TUN_K_BUFSIZE = 
; ™ 089 8 ZIF NOT WOSTILE_6).Am 
; M 0894 XZTHEN * COM_K_BPERPAGE ! Bytes in a buffer 
; #0895 0 BEL Se 5 * COM_K_B?ERPAGE ! Bytes in a buffer 
; 08 0 ZF 2%; 
; wy 8 LITERAL 
; 0898 FUN_K_ CHECKPOINT = FALSE; ! True to generate code for checkpointing 
; 0899 0 ASSERT_TTON_K_MAX_MERGE GEQ MAX_MERGE_ORDER) 
; L 0901 0 IF NOT FUN_K_CHECKPOINT 
: 0 UNDECLARE ZQUOTE COM_NOCHKPNT, ZQUOTE COM_COUNTDOWN; 


ITERAL 
TUN T WONTREE = 192, } Number of pages to not use for the tree 
F 
FE : 
RE ! 
1 
i 
i 
i 
i 
i 
i 
i 
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H 
BADLOGIC, SEVERE, 
EDEL. ERROR, 
ROR. 
CLOSEOUT, ERROR 
INSVIRMEM, SEVERE, 
OPENIN, SEVERE, 
ENOUT, SEVERE, 
READERR, ERROR 
SYSERROR, SEVERE» 


TE RNING, 
WRITEERR, ERROR); 


calling SORSSERROR directly. 
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MACRO 
SORSSFATAL(X) = 
(X) AND NO 
RIF XLENGTH 


ERROR 


E 
HEN , ZREMAINING % 


10 


NUMBERS 


Each message issued has an associated Literal value. 
the form ‘'SORS$_xxx'’, where "’ 


) + SORTS_FACILITY * 


9 

i 

18 EQUIRE 'SRC$:SORMSG'; 

0 IF NOT XDECLARED(SORTS_FACILITY) 

091 THEN 

096 LITERAL 

9 SORTS_FACILITY = SORS_FACILITY; 

094 UNDECLAR 

095 — SORS_FACILITY; 

099 

098 DEFSHR_CMSG,SEV] = 

099 XNAME (*SORS_SHR_',MSG) = 
ZNARE ('SHRS_* MSG 
XNAME ('STSSR_*,SE 

LITERAL 
DEFS 


Internal logic error 
Error closing !AS 

Error closing !AS as 
Error closing !AS as 
Insufficient virtual 
Error opening !AS as 
Error opening !AS as 
Error reading !AS 

S stem service error 


Error writing !AS 


VERE 
FI)) &; 


1g-Se0-1984 9:17:39 


VAX=11_ BLi 
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The name of the 


‘is the message identifier. 
Other shared messages are defined in the SORCOMMAN module. 


16 %; 


detected 


input 
output 
memory 
input 
output 


! The ey + He Ales tay is used to diagnose an unrecoverable error, instead of 
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TEXTUAL INFORMATION 
User-visible text is defined here. This text may be translated or 
changed, subject to the restrictions described below. 
Default file extension 
MACRO 


STR_DEF_EXT = "DAT" %; 


Default specification file, and default specification file extension 


MACRO 
STR_DEF_SPECFILE = "SYSSINPUT' %, 
STR-SPC"EXT = "SRT &; 


! These macroes define the external and internal representations of options for 
! command Line qualifiers. The first parameter in each pair may be translated; 
! the second, however, is used to define internal name for this option, and may 
not be translated. 


MACRO 

STR_OPT_OUTFMT = ! outfile/FORMAT=(...) 
+ VARTRBLE* ART! 
"CONTROLLED', ‘CONT’; 
"SIZE", 'SIZE*, 
"BLOCK. SIZE", "BLOC’ x, 

STR_OPT_INPFMT = ! inpfile/FORMAT=(...) 
"FICE SIZE" "FILE', 
"RECORD_SIZE', "RECO' X, 

STR_OPT_PROCESS = ! /PROCESS=... 
1 ae 
'ADDRESS', ‘appr’, 
‘INDEX’, "INDE’ ’%, 

STR_OPT_KEY = ' /KEY=... 
SinaapINe’- ASE 
"CHARACTER", "CHAR", 
"DECIMAL, DECI’. 
testes 
"F_FLOATING’, *F_FL’, 
"D“FLOATING'. 'DTFL, 
"G"FLOATING’, 'G"FL’. 
"H" FLOATING’. "HTFL’. 
td are te ! NUMBER:nn 
*OVERPUNCHED SIGN", ‘OVER', 
"POSITION' "POSI': ! POSITION: nn 
"PACKED DECIMAL’, ‘PACK’. 


ePerererrerrererrcreerer 
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<i he ! $IZE:nn 
"SIGNED', 'SIGN', 
"SIZE SIZE’, ! $I:nn 
*SEPARATE_SIGN', "SEPA', 
"TRAILING_SIGN' , ‘TRAIL’. 
"ZONED', "2ONE’ %, 

STR_OPT COLL = 
PASCII', "ASCI', 
"EBCDIC "EBCD',, 
"DEC_MULTINATIONAL', "DEC_' 2; 


String passed to CLISGET_VALUE to get the command Line. 
{MACRO 


STR_CLI_LINE = ‘SLINE’ 2%; 


FAO string used to output statistics via SYSSPUTMSG. 


The following text interacts elonety with the code in PRINT_STATS. 

The text can, however, be changed (translated) independent of the code, if 
the centres string still uses the same FAO parameters, and text expands to 
no more than 1024 characters (a restriction of the wey that the text is 
output), and Lines are separated by carraige-return/Line-feed pairs. 


Note that the use of tab character in the text is avoided, since 
some terminals may not have tab stops at multiples of eight. 


MACRO 


STR STATS = ZEXPAND ZSTRING( 
iat 18* VAX-11 SORT/MERGE !AC Statistics’, 


+i /Records read: !12UL 


*!10* Longest re Length: !7UL' 
*!/Records sorted: ‘YOut 


cord 
'110* Input multiblock count: !6UL! 
*!/Records output: !10UL *!10* Output multiblock count: !5UL’, 
4 Dt pd aes ait TéOL", *!10* Input ault tout ter count: iSuLt 
"'/Virt OUL’, *!10* Output multibuffer count : 14uL*, 
‘iWirect 1/0: 70:1 140 os *!10* Number of initial runs: '6uL", 
, Buffered 1/0:!1 *!10* Maximum merge order:! 

*!/Page faults: 1 isoL, "110 Number of merge passes: T6uL", 


*!/Sort tree” "size; '10UL", *!10* Work file size used:!9UL’, 
“(Elapsed tine: f4xT", "!7* Elapsed CPU:!6* !14ZT', 
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! Logical nanos to use for work file oes! nments. 
i The logical name actually u is 
(netyth charecter of STR_LOG_WORKNUM) 


aa 


; XSTRING(ST ‘to6. WORKFILE, 
hacro STR_LOG_WORKFILE = :SoRTy WORK’ % 
STR7LOG WORKNUM = 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" %; 


Se eeeeas 


VeSeect9g¢ 90:12:2 
: Default file name string to use for the work files. 


MACRO 
"SYSSSCRATCH:SORTWORK. TMP’ %; 


STR_DEF_WORKFILE = 


"3255 


1 Bl ig s-32 V 
$DUA28 :CSORT 


3 Oeeed Pa 
2.SRCISORLIB.REQ;1 


9485 


222 
kk kk kt tt 


DUPE SE 
ODONAVLS WH OOWONOUE win 


COOCCCCOCOCOCOOCOOOOCOoO 


"10 
1328e0- 138s 98:15:23 “Sase BAS RS Tee RSs sheSsonie.reast 8 «18s 
1 


CLEAN-UP ROUTINES 


tleoneup routines re noet ced by ated eee SORT. To facilitate 
nformation-hiding, the following mechanism is used. It allows 
each sub-system to aelere a clean-up routine to clean up its data 

structures (so that SORSEND _SORT need not know the format of the 
data structures, or even thé name of the clean-up Baws oof, 


A stomnnye routine is declared by: 
RWARD ROUTINE CLEAN uP 
SORSSEND_ROUTINE_(CLEAN 
ROUTINE CLEAN_UP? CAL_ trxReg NOVALUE = ... 


SORSSEND_PSECT (Xx) ZNAME (ZEXACTSTRING(30,°_","SORSRO_CODE'),X) 2%; 


SORSSEND= pRoutl INE_(X) = 
NODEF AULT ZEXPAND SORSSEND_PSECT_(2) (PIC, SHARE ,NOWRITE, EXECUTE); 
XNAME(*_*,X): PS T (HEX PAND SORS$ S$END D-PSECT_(2)) 


= 
Xx) 
XP 
EC 
ITIAL (X=%NAME(' ' XD) 2; 


UEWN—O 
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EXEC-MODE VARIANT 


A variant of Sort/Merge is made available to the RDMS group for 

use in exet mode. This is gotten by compiling the fol outs 

modules with the /VARIANT=1 command qualifier. Note that the /VARIANT 
ualifier will have no effect when compiling the require files. 
xternal references from these modules are named SORS$fac$name. 

For example, the following code would be in SORINTERF. 


Z1F HOSTILE 
THEN 


ACRO 
LIBSGET_VM = SORSL a 
1B$ VM %; 


IBSGET_VM 
_ LIBSFREE_VM = SORSLIBSFREE_ 


Another variant of Sort/Merge is made available for JRD on ELAN. 
This variant is gotten by compiling with /VARIANT=3. 

The major distinction between this and the previous is that 

the address of the context longword passed to Sort/Merge is passed 
to several of the SORSfac$name system services. 


The following modules are needed for these variants: 
COM.REQ, are ee OPCODES.REQ, SORMSG.MSG, SORINTERF .B32, 
SORKEYSUB.B32, SORSORT.B32, SORSCRIO.B32, SORFILNAM.B32 


MACRO HOSTILE = XVARIANT %; 
MACRO HOSTILE_ELAN = (ZVARIANT AND X%VARIANT*=1) 2%; 


1288 0 ! End of SORLIB.REQ 
Library Statistics 
Guana Symbols 
File Total Loaded 
.$255$DUA28: CSYSLIBJSTARLET. 34: 1 9776 90 
“$255$DUA28: eye SLIBIJXPORT. 13231 590 5 


COMMAND QUALIFIERS 
BLISS SRC$:SORLIB/LIS=LIS$:SORLIB/LIB=SRC$:SORLIB 


Run Time: 00:50.4 
Elapsed Time: 02:37.6 
Lines/CPU Min: 153 
Lexemes/CPU-Min: 95546 

Memory Used: 138 pages 

Library Precompilation Complete 


1$-Beoct9ee 99:17:59 


ecccceee Pages 
Percent Mapped 
g 581 
252 
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